home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ Win2K Startmenu Clear MRUs.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-01-01  |  1.6 KB  |  64 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Start menu\Common"
  5. "NAME"="Clear Items #2"
  6. "VERSION"="1.13"
  7. "OSVERSION"="000111"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Clear Text Search"
  10. "TEXT 2"="Clear found files ("Find" - "Files")"
  11. "TEXT 3"="Clear all of the above"
  12. "DESCRIPTION 1"="Click an item to be cleared."
  13. "DESCRIPTION 2"="NOTE: This plug-in is for W2K/WME/XP only!"
  14. "AUTHOR"="Ojatex@aol.com"
  15. "CONTACTURL"="http://members.aol.com/ojatex/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Thanks to CptSiskoX for plugin suggestion & settings."
  19.  
  20. sP1="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Explorer Bars\{C4EE31F3-4768-11D2-BE5C-00A0C9A83DA1}\ContainingTextMRU\"
  21. sP2="HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{C4EE31F3-4768-11D2-BE5C-00A0C9A83DA1}\FilesNamedMRU\"
  22. bShowMessage=true
  23.  
  24. Sub Plugin_Initialize
  25. End Sub
  26.  
  27. Sub Plugin_CheckData(ElementIndex)
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  Select Case ElementIndex
  32.    Case 1 'text 
  33.       i=RegEnumValues(sp1)
  34.       for l=1 to i
  35.           Call RegDeleteValue(sp1 & RegEnumElement(l))
  36.       Next
  37.   
  38.  
  39.    Case 2 'files
  40.       i=RegEnumValues(sp2)
  41.       for l=1 to i
  42.           Call RegDeleteValue(sp2 & RegEnumElement(l))
  43.       Next
  44.  
  45.  
  46.    Case 3 'all
  47.      bShowMessage=false
  48.      Call Plugin_Apply(1,0)
  49.      Call Plugin_Apply(2,0)
  50.      bShowMessage=true
  51.  
  52.  end Select
  53.  
  54.  
  55.  if bShowMessage=true then 
  56.     Call MsgInformation("Cleared, please restart your PC so the changes can take effect.") 
  57.     Call Restart
  58.  end if
  59.  
  60. End Sub
  61.  
  62. Sub Plugin_Terminate
  63. End Sub
  64.